00100	BEGIN "clok"
00200	REQUIRE "DDSTUF.REL[CAR,HPM]" LOAD_MODULE;
00300	EXTERNAL PROCEDURE SCREEN(REAL XLO,YLO,XHI,YHI);
00400	EXTERNAL PROCEDURE LINE(REAL XLO,YLO,XHI,YHI);
00500	EXTERNAL PROCEDURE POLYGO(INTEGER N; REAL ARRAY X,Y);
00505	EXTERNAL PROCEDURE RECTAN(REAL XLO,YLO,XHI,YHI);
00600	EXTERNAL PROCEDURE DPYUP(INTEGER N);
00700	EXTERNAL PROCEDURE DDINIT;
00800	EXTERNAL INTEGER PROCEDURE GDDCHN(INTEGER CHAN);
00900	EXTERNAL PROCEDURE RDDCHN(INTEGER CHAN);
01000	REAL FORTRAN PROCEDURE SIN(REAL X);
01100	REAL FORTRAN PROCEDURE COS(REAL X);
01200	REAL X1,Y1,X2,Y2,SIZE; STRING S; INTEGER I,J,K,L,M,N,DUM;
01300	INTEGER ARRAY DIGS[0:9];
01305	
01310	PROCEDURE DIG(REAL X;INTEGER I);
01315	 BEGIN INTEGER J;
01320	 J←DIGS[I];
01325	 IF J LAND 1 THEN RECTAN(X+.2-.05*SIZE,-.03,X+.2,.3);
01330	 IF J LAND 2 THEN RECTAN(X-.2,.24,X+.2,.3);
01335	 IF J LAND 4 THEN RECTAN(X-.2,-.03,X-.2+.05*SIZE,.3);
01340	 IF J LAND 8 THEN RECTAN(X-.2,-.3,X-.2+.05*SIZE,.03);
01345	 IF J LAND 16 THEN RECTAN(X-.2,-.3,X+.2,-.24);
01350	 IF J LAND 32 THEN RECTAN(X+.2-.05*SIZE,-.3,X+.2,.03);
01355	 IF J LAND 64 THEN RECTAN(X-.2,-.03,X+.2,.03);
01360	 END;
01365	
01400	
01500	DIGS[0]←'77; DIGS[1]←'41; DIGS[2]←'133; DIGS[3]←'163; DIGS[4]←'145;
01600	DIGS[5]←'166; DIGS[6]←'176; DIGS[7]←'43; DIGS[8]←'177; DIGS[9]←'167;
01700	OUTSTR("SIZE:"); SIZE←REALSCAN(S←INCHWL,DUM); IF SIZE=0 THEN SIZE←1;
01800	SCREEN(-1,-1/SIZE,1,1/SIZE);
01900	WHILE TRUE DO
02000	 BEGIN
02100	 N←CALL(0,"TIMER")%3600;
02200	 IF N≠DUM THEN
02300	  BEGIN
02400	  DUM←N;
02500	  M←N%60;
02600	  N←N MOD 60;
02700	  DDINIT;
02800	  IF M%10 ≠ 0 THEN DIG(-.8,M%10);
02900	  DIG(-.3,M MOD 10);
03000	  DIG(.25,N%10);
03100	  DIG(.75,N MOD 10);
03150	  RECTAN(-.05,.1,0,.15); RECTAN(-.05,-.15,0,-.1);
03200	  FOR I←1 STEP 1 UNTIL 5 DO FOR K←'37 STEP -1 UNTIL '32 DO 
03250	   BEGIN GDDCHN(K); DPYUP(K); RDDCHN(K); END;
03300	  END;
03400	  CALL(1,"SLEEP");
03500	 END;
03600	
03700	END;